﻿Imports System.ComponentModel

Public Class Credits

    Private Credit As New TransparentRichTextBox

    Public CW As Integer = 397 ' Current Width
    Public CH As Integer = 274 ' Current Height
    Dim IW As Integer = Me.Width ' Initial Width
    Dim IH As Integer = Me.Height

    Private Sub Credits_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Credit.BorderStyle = BorderStyle.None
        Credit.Width = Me.Width
        Credit.Name = "rtb"
        Credit.Height = Me.Height
        Credit.Top = Me.Height / 2
        Credit.Left = 10
        Credit.TabStop = False


        Me.Controls.Add(Credit)
        player.uiMode = "none"
        PictureBox1.BringToFront()
        player.BringToFront()

    End Sub

    Private Sub Credits_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Dim RW As Double = (Me.Width - CW) / CW
        Dim RH As Double = (Me.Height - CH) / CH

        For Each Ctrl As Control In Controls
            Ctrl.Width += CInt(Ctrl.Width * RW)
            Ctrl.Height += CInt(Ctrl.Height * RH)
            Ctrl.Left += CInt(Ctrl.Left * RW)
            Ctrl.Top += CInt(Ctrl.Top * RH)
        Next
        
        fun(jnsAnim)
        CW = Me.Width
        CH = Me.Height
    End Sub

 
    Private Sub tmrBl_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrBl.Tick

    End Sub
End Class
